﻿Imports QLTHUVIEN.DAO
Imports QLTHUVIEN.DTO

Public Class LoaiDocGiaBUS
    Public Function LayDanhSach() As DataTable
        Dim ldg As LoaiDocGiaDAO = New LoaiDocGiaDAO()
        Dim dt As DataTable = ldg.LayDanhSach()
        Return dt
    End Function

    Public Sub ThemLoaiDocGia(ByVal LoaiDocGia As LoaiDocGiaDTO)
        Dim ldgDao As New LoaiDocGiaDAO()
        ldgDao.ThemLoaiDocGia(LoaiDocGia)
    End Sub

    Public Sub SuaLoaiDocGia(ByVal LoaiDocGia As LoaiDocGiaDTO)
        Dim ldgDao As New LoaiDocGiaDAO()
        ldgDao.SuaLoaiDocGia(LoaiDocGia)
    End Sub

    Public Sub XoaLoaiDocGia(ByVal LoaiDocGia As LoaiDocGiaDTO)
        Dim ldgDao As New LoaiDocGiaDAO()
        ldgDao.XoaLoaiDocGia(LoaiDocGia)
    End Sub
End Class
